Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/clipdemo/clip1.frm

Visual Basic Form | 1995-09-06 | 1.8 KB | 80 lines

VERSION 2.00
Begin Form Form1
   Caption         =   "Clipboard Demo"
   ClientHeight    =   0
   ClientLeft      =   1890
   ClientTop       =   3150
   ClientWidth     =   6585
   Height          =   690
   Left            =   1830
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   0
   ScaleWidth      =   6585
   Top             =   2520
   Width           =   6705
   Begin Menu Edit
      Caption         =   "&Edit"
      Begin Menu Copy
         Caption         =   "&Copy"
      End
      Begin Menu Cut
         Caption         =   "Cu&t"
      End
      Begin Menu Paste
         Caption         =   "&Paste"
      End
      Begin Menu Sep1
         Caption         =   "-"
      End
      Begin Menu Quit
         Caption         =   "E&xit"
      End
   End
Sub Clip2Text (Dest As Control)
   Dest.SelText = Clipboard.GetText(CF_TEXT)
End Sub
Sub Copy_Click ()
   Select Case FocusFlag
      Case 1
         Text2Clip Form2.Text1
      Case 2
         Text2Clip Form3.Text1
   End Select
End Sub
Sub Cut_Click ()
   Select Case FocusFlag
      Case 1
         Text2Clip Form2.Text1
         Form2.Text1.SelText = ""
      Case 2
         Text2Clip Form3.Text1
         Form3.Text1.SelText = ""
   End Select
End Sub
Sub Form_Load ()
   Form2.Show
   Form3.Show
End Sub
Sub Form_Resize ()
   Form1.Height = 744
End Sub
Sub Paste_Click ()
   Select Case FocusFlag
      Case 1
         Clip2Text Form2.Text1
      Case 2
         Clip2Text Form3.Text1
   End Select
End Sub
Sub Quit_Click ()
   Unload Form3
   Unload Form2
   Unload Form1
End Sub
Sub Text2Clip (Src As Control)
   Clipboard.SetText Src.SelText, CF_TEXT
End Sub